* Создание и инициализация структурной переменной.

для коорд_х1;коорд_у1;коорд_х2;коорд_у2
  присвоить "прямоугольник;[$ОбъектЦикла]" 0  
следующий
память печать